home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Games / Strategy / Puzzle / GameMaster / GM Dev Kit / Pascal Units / NumSubs.p < prev    next >
Encoding:
Text File  |  1991-09-23  |  254 b   |  19 lines  |  [TEXT/PJMM]
  1. unit NumSubs;
  2.  
  3. { ©1991 Quinn "The Eskimo" }
  4.  
  5. interface
  6.  
  7.     function DecStr (n: longint): str255;
  8.  
  9. implementation
  10.  
  11.     function DecStr (n: longint): str255;
  12.         var
  13.             res: str255;
  14.     begin
  15.         NumToString(n, res);
  16.         DecStr := res;
  17.     end; { DecStr }
  18.  
  19. end. { NumSubs }